0 REM *** ROLLING BALL DEMO ... C-64 ***
1 POKE53280,0:POKE53281,0:PRINTCHR$(158)
2 SYS52800:A=1105:X(1)=1:X(2)=-40:X(3)=-1:X(4)=40:POKEA,81
3 B=A+X(C):IFPEEK(B)=32THENPOKEB,81:POKEA,32:A=B:C=C+2:IFC>4THENC=C-4
4 C=C-1:IFC<0THENC=4
5 GOTO3